home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 9 / Other Examples / Tiling Example < prev   
Text File  |  1994-05-09  |  1KB  |  68 lines
  1.  
  2. { This program was written by Professor Kevin Mitchell.  It uses
  3.   an advanced feature of xTurtle that will not be covered in
  4.   CS100: "multitasking."  This uses a "fork" command to make
  5.   many turtles that can each operate separately.  Mitchell uses
  6.   this capability to draw an interesting regular pattern that
  7.   is an example of a "tiling of the plane."   The whole (x,y)-plane
  8.   is filled with copies of two figures, an arrow-shaped figure
  9.   and a cross-shaped figure.
  10.  
  11.   IMPORTANT!  Turn off the "Autoscroll to Show Turtle feature in
  12.               the Options Menu before you run this program!!! 
  13.  
  14.  
  15.      This tiling of the plane was designed by the Persian artist
  16.   Mirza Akbar early 19th century.}
  17.  
  18.  
  19.  
  20. sub rArrow
  21.    penDown
  22.    move(1,0)
  23.    move(0,.5)
  24.    move(1,1)
  25.    move(.5,0)
  26.    move(0,1)
  27.    move(-1,0)
  28.    move(0,-.5)
  29.    move(-1,-1)
  30.    move(-.5,0)
  31.    move(0,-1)
  32. end sub
  33.  
  34. sub lArrow
  35.    penDown
  36.    move(0,-1)
  37.    move(.5,0)
  38.    move(1,-1)
  39.    move(0,-.5)
  40.    move(1,0)
  41.    move(0,1)
  42.    move(-.5,0)
  43.    move(-1,1)
  44.    move(0,.5)
  45.    move(-1,0)
  46. end sub
  47.  
  48. sub upArrows
  49.    fork(10)
  50.    penUp
  51.    moveTo(3*(forkNumber-5),0)
  52.    fork(10)
  53.    move(0,3*(forkNumber-5))
  54.    rArrow
  55. end sub
  56.  
  57. sub downArrows
  58.    fork(10)
  59.    penUp
  60.    moveTo(3*(forkNumber-5)+1.5,1)
  61.    fork(10)
  62.    move(0,3*(forkNumber-5))
  63.    lArrow
  64. end sub
  65.  
  66. upArrows
  67. downArrows
  68.